(ange-ftp-name-format): Don't match "/:" or "/.:".

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 2b79cf5757a89305b762aae6f235b11eaeebde21..b4ea56267d27f123e1cea0f8841da00822c3275f 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -625,7 +625,7 @@
 ;;;; ------------------------------------------------------------
 
 (defvar ange-ftp-name-format
-  '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*\\):\\(.*\\)" . (3 2 4))
+  '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4))
   "*Format of a fully expanded remote file name.
 This is a list of the form \(REGEXP HOST USER NAME\),
 where REGEXP is a regular expression matching